home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / m / multi_media_demo_maker / multimediademomakerv1.0.dms / multimediademomakerv1.0.adf / sources / vektorobjekt1.S < prev    next >
Text File  |  1990-11-13  |  1KB  |  62 lines
  1. ;-----------------------------------------------------------------------
  2. ; Beispiel eines Vektorobjekt-Sourcecodes
  3. ;-----------------------------------------------------------------------
  4. ; Normales Vektorobjekt (Diamant)
  5. ;-----------------------------------------------------------------------
  6. ;(Seka-format)
  7. ;Benutzung:
  8. ;a (return)
  9. ;wi (return)
  10. ;name (return)
  11. ;start (return)
  12. ;end (return)
  13. ;Danach kann das Objekt vom Demomaker aus unter "name" eingeladen werden.
  14. ;------------------------------------------------------------------------
  15.  
  16. start:
  17. dc.l    "VECT"    ;Kennung fuer Objekt!!!
  18.  
  19. filledob2:
  20. dc.l TESTPOINTS-filledob2    ;offset zu Punktstruktur
  21. dc.l TESTFLAECHEN-filledob2    ;offset zu Flaechenstruktur
  22. dc.w 300            ;zoom auf 300
  23. dc.w 0,$8,$a,$c,$44f,$f0f,$0f,$f00    ;8 Farben
  24. dc.b 0    ;0-normales Objekt
  25. dc.b 0    ;0-keine Syncronisation
  26. dc.w 0    ;jetzt ohne Funktion
  27. dc.l 0    ;keine Zusatzroutinen
  28. dc.l 0    ;...
  29.  
  30. TESTPOINTS:    ;Punktstruktur
  31. dc.w 10        ;10 Punkte
  32. dc.w 0,0,-20    ;Koordinaten (x/y/z)
  33. dc.w 30,0,10
  34. dc.w 0,0,40
  35. dc.w 21,21,10
  36. dc.w 0,30,10
  37. dc.w -21,21,10
  38. dc.w -30,0,10
  39. dc.w -21,-21,10
  40. dc.w 0,-30,10
  41. dc.w 21,-21,10
  42.  
  43. TESTFLAECHEN:    ;Flaechenstruktur
  44. dc.w 15        ;16 Flaechen
  45. dc.w 3,1,0,1,3,0    ;1.Flaeche
  46. dc.w 3,2,1,2,3,1    ;2.Flaeche
  47. dc.w 3,3,0,3,4,0    ;...
  48. dc.w 3,4,3,2,4,3
  49. dc.w 3,1,0,4,5,0
  50. dc.w 3,2,4,2,5,4
  51. dc.w 3,3,0,5,6,0
  52. dc.w 3,4,5,2,6,5
  53. dc.w 3,1,0,6,7,0
  54. dc.w 3,2,6,2,7,6
  55. dc.w 3,3,0,7,8,0
  56. dc.w 3,4,7,2,8,7
  57. dc.w 3,1,0,8,9,0
  58. dc.w 3,2,8,2,9,8
  59. dc.w 3,3,0,9,1,0
  60. dc.w 3,4,9,2,1,9
  61. end:
  62.